The Mac 13/the-mac-13.iso/On The Rom/100 Best Mac CD-ROMs Selection/The Treasure Hunt/thpb.Dxr/00047.ls

Text File | 1994-09-16 | 5.0 KB | 166 lines

on colourinskelly
  global colour
  set skull to the foreColor of sprite 21
  set ribs to the foreColor of sprite 22
  set rarm to the foreColor of sprite 23
  set larm to the foreColor of sprite 24
  set rleg to the foreColor of sprite 25
  set lleg to the foreColor of sprite 26
  set the castNum of sprite 29 to the castNum of sprite the clickOn
  puppetSound("paint")
  cursor(200)
  set lastRoll to 48
  set lastcol to 0
  repeat while the mouseDown
    set the locH of sprite 48 to the mouseH
    set the locV of sprite 48 to the mouseV
    if (lastRoll <> 48) and not rollOver(lastRoll) then
      set the foreColor of sprite (lastRoll + 9) to lastcol
      set lastRoll to 48
      set lastcol to 0
    end if
    repeat with l = 12 to 17
      if rollOver(l) then
        if lastRoll <> l then
          set lastcol to the foreColor of sprite (l + 9)
          set the foreColor of sprite (l + 9) to colour
          puppetSound("contact")
          set lastRoll to l
        end if
      end if
    end repeat
    updateStage()
  end repeat
  set the locH of sprite 48 to -90
  set the locH of sprite 48 to -90
  puppetSound(0)
  updateStage()
  cursor(-1)
end

on colourinmonster
  global colour
  set body to the foreColor of sprite 21
  set leg1 to the foreColor of sprite 22
  set leg2 to the foreColor of sprite 23
  set leg3 to the foreColor of sprite 24
  set head to the foreColor of sprite 25
  set the castNum of sprite 29 to the castNum of sprite the clickOn
  puppetSound("paint")
  cursor(200)
  set lastRoll to 48
  set lastcol to 0
  repeat while the mouseDown
    set the locH of sprite 48 to the mouseH
    set the locV of sprite 48 to the mouseV
    if (lastRoll <> 48) and not rollOver(lastRoll) then
      if lastRoll = 17 then
        set the foreColor of sprite 21 to lastcol
      else
        set the foreColor of sprite (lastRoll + 9) to lastcol
      end if
      set lastRoll to 48
      set lastcol to 0
    end if
    repeat with l = 12 to 16
      if rollOver(l) then
        if lastRoll <> l then
          set lastcol to the foreColor of sprite (l + 9)
          set the foreColor of sprite (l + 9) to colour
          puppetSound("contact")
          set lastRoll to l
        end if
      end if
    end repeat
    if rollOver(17) and (lastRoll <> 17) then
      set l to 12
      set lastcol to the foreColor of sprite (l + 9)
      set the foreColor of sprite (l + 9) to colour
      puppetSound("contact")
      set lastRoll to 17
    end if
    updateStage()
  end repeat
  set the locH of sprite 48 to -90
  set the locH of sprite 48 to -90
  updateStage()
  cursor(-1)
end

on colourinnelson
  global colour
  set head to the foreColor of sprite 21
  set body to the foreColor of sprite 22
  set tail to the foreColor of sprite 23
  set iwing to the foreColor of sprite 24
  set owing to the foreColor of sprite 25
  set the castNum of sprite 29 to the castNum of sprite the clickOn
  puppetSound("paint")
  cursor(200)
  set lastRoll to 48
  set lastcol to 0
  repeat while the mouseDown
    set the locH of sprite 48 to the mouseH
    set the locV of sprite 48 to the mouseV
    if (lastRoll <> 48) and not rollOver(lastRoll) then
      if (lastRoll = 17) or (lastRoll = 18) then
        set the foreColor of sprite 25 to lastcol
      else
        if (lastRoll = 15) or (lastRoll = 16) then
          set the foreColor of sprite 24 to lastcol
        else
          set the foreColor of sprite (lastRoll + 9) to lastcol
        end if
      end if
      set lastRoll to 48
      set lastcol to 0
    end if
    if (lastRoll = 17) or (lastRoll = 18) then
      if rollOver(lastRoll) and rollOver(lastRoll - 2) then
        set the foreColor of sprite 25 to lastcol
        set lastRoll to 48
        set lastcol to 0
      end if
    end if
    repeat with l = 12 to 14
      if rollOver(l) then
        if lastRoll <> l then
          set lastcol to the foreColor of sprite (l + 9)
          set the foreColor of sprite (l + 9) to colour
          puppetSound("contact")
          set lastRoll to l
        end if
      end if
    end repeat
    if rollOver(15) and (lastRoll <> 15) then
      set lastcol to the foreColor of sprite 24
      set the foreColor of sprite 24 to colour
      puppetSound("contact")
      set lastRoll to 15
    end if
    if rollOver(16) and (lastRoll <> 16) then
      set lastcol to the foreColor of sprite 24
      set the foreColor of sprite 24 to colour
      puppetSound("contact")
      set lastRoll to 16
    end if
    if rollOver(17) and (lastRoll <> 17) and not rollOver(15) then
      set lastcol to the foreColor of sprite 25
      set the foreColor of sprite 25 to colour
      puppetSound("contact")
      set lastRoll to 17
    end if
    if rollOver(18) and (lastRoll <> 18) and not rollOver(16) then
      set lastcol to the foreColor of sprite 25
      set the foreColor of sprite 25 to colour
      puppetSound("contact")
      set lastRoll to 18
    end if
    updateStage()
  end repeat
  set the locH of sprite 48 to -90
  set the locH of sprite 48 to -90
  updateStage()
  cursor(-1)
end